COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE IMPUP
C00003 ENDMK
C⊗;
TITLE IMPUP
SUBTTL Program to ressurect the NCP from user mode

IMPUP:	JFCL
	MOVSI 377777
	SETPR2
	 JRST 4,.-1
	MOVEI 1,[.RSQZ 0,IMPDIE ? 0]
	.SYML 1,
	 JRST 4,.-1
	MOVEI 2,[.RSQZ 0,IMPDEA ? 0]
	.SYML 2,
	 JRST 4,.-1
	SKIPE 400000(1)
	 SKIPN 400000(2)
	  JRST [OUTSTR [ASCIZ/Foo you don't know what you're doing.  Go away./]
		EXIT]
	MOVSI 4000
	SETPRV
	INIT
	 'IMP,,
	 0
	 JRST 4,.
	MTAPE [12]
	EXIT

END IMPUP